home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_24416.txt < prev    next >
Text File  |  1990-08-07  |  2KB  |  86 lines
  1. -- card: 24416 from stack: in.0-2
  2. -- bmap block id: 24929
  3. -- flags: 0000
  4. -- background id: 18737
  5. -- name: fieldSizes
  6. ----- HyperTalk script -----
  7. -- This handler stores the name of the last card.
  8. on goBack
  9.   go cd "Text Fields" of stack "Intro to HyperCard 2.0"
  10. end goBack
  11.  
  12. on closeCard
  13.   put empty into cd fld "sampleFld"
  14. end closeCard
  15.  
  16. on openCard
  17.   put the rect of cd fld "sampleFld" into theRect
  18.   put item 1 of theRect into theH
  19.   put item 2 of theRect into theV
  20.   add 2 to theV
  21.   click at theH, theV
  22.   type "You may type something here."
  23. end openCard
  24.  
  25.  
  26.  
  27. -- part 1 (field)
  28. -- low flags: 00
  29. -- high flags: 0002
  30. -- rect: left=112 top=188 right=253 bottom=361
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: sampleFld
  39.  
  40.  
  41. -- part 2 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=192 top=260 right=293 bottom=276
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: 
  53. ----- HyperTalk script -----
  54. -- This handler sets the rect of "sampleFld" to various sizes,
  55. -- so the user can see what they look like.
  56. on mouseUp
  57.   put the rect of cd fld "sampleFld" into firstRect
  58.   put firstRect into playRect
  59.   repeat for 3
  60.     subtract 10 from item 1 of playRect
  61.     set the rect of cd fld "sampleFld" to playRect
  62.   end repeat
  63.   wait 30
  64.   repeat for 3
  65.     add 10 to item 4 of playRect
  66.     set the rect of cd fld "sampleFld" to playRect
  67.   end repeat
  68.   wait 30
  69.   repeat for 3
  70.     subtract 10 from item 2 of playRect
  71.     set the rect of cd fld "sampleFld" to playRect
  72.   end repeat
  73.   wait 30
  74.   repeat for 3
  75.     add 10 to item 3 of playRect
  76.     set the rect of cd fld "sampleFld" to playRect
  77.   end repeat
  78.   wait 30
  79.   set the rect of cd fld "sampleFld" to firstRect
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part contents for background part 1
  85. ----- text -----
  86. You can change the size of a text field in HyperCard at any time. Type in the field below, and then click the button to see the field size change.